The CICA Windows Explosion!/The CICA Windows Explosion! - Disc 2.iso/demo/vtskt10i.zip/FTP_CONN.FRM

Text File | 1994-02-01 | 6KB | 224 lines

VERSION 2.00
Begin Form connect_form
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "New Connection"
   ClientHeight    =   2415
   ClientLeft      =   1605
   ClientTop       =   2505
   ClientWidth     =   5715
   ClipControls    =   0   'False
   Height          =   2820
   Left            =   1545
   LinkTopic       =   "MDIForm1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2415
   ScaleWidth      =   5715
   Top             =   2160
   Visible         =   0   'False
   Width           =   5835
   Begin CommandButton anonymous
      Caption         =   "Anonymous"
      Height          =   375
      Left            =   1080
      TabIndex        =   10
      Top             =   1980
      Width           =   1095
   End
   Begin CommandButton connect
      Caption         =   "Connect"
      Height          =   375
      Left            =   2280
      TabIndex        =   4
      Top             =   1980
      Width           =   1095
   End
   Begin CommandButton cancel
      Caption         =   "Cancel"
      Height          =   375
      Left            =   3480
      TabIndex        =   5
      Top             =   1980
      Width           =   1095
   End
   Begin SSPanel Panel3D1
      Align           =   1  'Align Top
      Alignment       =   6  'Center - TOP
      BackColor       =   &H00C0C0C0&
      BorderWidth     =   1
      Font3D          =   0  'None
      Height          =   1875
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5715
      Begin SSPanel Panel3D5
         Alignment       =   1  'Left Justify - MIDDLE
         BackColor       =   &H00C0C0C0&
         BevelInner      =   1  'Inset
         BorderWidth     =   1
         Caption         =   " Account"
         Font3D          =   0  'None
         Height          =   435
         Left            =   60
         TabIndex        =   9
         Top             =   1320
         Width           =   5595
         Begin TextBox conn_account
            Height          =   315
            Left            =   1020
            TabIndex        =   3
            Top             =   60
            Width           =   4515
         End
      End
      Begin SSPanel Panel3D4
         Alignment       =   1  'Left Justify - MIDDLE
         BackColor       =   &H00C0C0C0&
         BevelInner      =   1  'Inset
         BorderWidth     =   1
         Caption         =   " Password"
         Font3D          =   0  'None
         Height          =   435
         Left            =   60
         TabIndex        =   8
         Top             =   900
         Width           =   5595
         Begin TextBox conn_password
            Height          =   315
            Left            =   1020
            PasswordChar    =   "*"
            TabIndex        =   2
            Top             =   60
            Width           =   4515
         End
      End
      Begin SSPanel Panel3D3
         Alignment       =   1  'Left Justify - MIDDLE
         BackColor       =   &H00C0C0C0&
         BevelInner      =   1  'Inset
         BorderWidth     =   1
         Caption         =   " Userid"
         Font3D          =   0  'None
         Height          =   435
         Left            =   60
         TabIndex        =   7
         Top             =   480
         Width           =   5595
         Begin TextBox conn_userid
            Height          =   315
            Left            =   1020
            TabIndex        =   1
            Top             =   60
            Width           =   4515
         End
      End
      Begin SSPanel Panel3D2
         Alignment       =   1  'Left Justify - MIDDLE
         BackColor       =   &H00C0C0C0&
         BevelInner      =   1  'Inset
         BorderWidth     =   1
         Caption         =   " IP Name"
         Font3D          =   0  'None
         Height          =   435
         Left            =   60
         TabIndex        =   6
         Top             =   60
         Width           =   5595
         Begin ComboBox conn_ipname
            Height          =   300
            Left            =   1020
            TabIndex        =   11
            Top             =   60
            Width           =   4515
         End
      End
   End
End

Sub anonymous_Click ()

  conn_userid = "anonymous"
  conn_password = ""
  conn_account = ""

End Sub

Sub cancel_Click ()

  ipname = ""
  userid = ""
  password = ""
  account = ""
  Hide

End Sub

Sub conn_account_KeyPress (keyascii As Integer)

  If keyascii = 13 Then
    connect_click
    keyascii = 0
  End If

End Sub

Sub conn_ipname_KeyPress (keyascii As Integer)

  If keyascii = 13 Then
    connect_click
    keyascii = 0
  End If

End Sub

Sub conn_password_KeyPress (keyascii As Integer)

  If keyascii = 13 Then
    connect_click
    keyascii = 0
  End If

End Sub

Sub conn_userid_KeyPress (keyascii As Integer)

  If keyascii = 13 Then
    connect_click
    keyascii = 0
  End If

End Sub

Sub connect_click ()

  nm$ = LCase$(Trim$(conn_ipname.Text))

  If nm$ = "" Then
    MsgBox ("Can't connect without an IP name or number")
    Exit Sub
  End If

  For x = 0 To conn_ipname.ListCount - 1
    If nm$ = conn_ipname.List(x) Then
      conn_ipname.RemoveItem x
      Exit For
    End If
  Next x

  conn_ipname.AddItem nm$, 0

  If conn_ipname.ListCount > 99 Then
    conn_ipname.RemoveItem 100
  End If

  ipname = nm$
  userid = Trim$(conn_userid)
  password = Trim$(conn_password)
  account = Trim$(conn_account)
  Hide

End Sub